12 POKE53280,5:POKE53281,6
15 GOSUB1000
20 PRINT""SPC(16)"[208][197][206][211][193][212][197]"
30 PRINT
40 PRINT"    [201]NSERT[160][211][201][196][197][160]2 OF [196][201][211][203] 2 INTO"
42 PRINT"YOUR DRIVE AND PRESS A KEY."
44 PRINTSPC(15)"-- [207][210] --"
50 PRINT"<[208]RESS '[209]' TO RETURN TO [204][207][193][196][211][212][193][210]>"
65 :
70 POKE198,0:WAIT198,1:GETA$
75 IFA$="Q"THEN60000
76 GOSUB10000
77 PRINT"[147]"SPC(12)"[194]OOTING [208][197][206][211][193][212][197]"
78 F$="PENSATE"
80 PRINT"LOADF$,8,1":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
1000 :
1010 PRINT"[147][153]****************************************";:FORX=1TO23
1012 PRINT"*"SPC(38)"*";:NEXT
1014 PRINT"***************************************";:POKE56295,PEEK(55296)
1016 POKE2023,42
1020 RETURN
10000 :
10010 GOSUB59000
10020 IFN$="PENSATE[160][160][160][160][160][160][160][160][160]"THENRETURN
10030 PRINT"[147]         [208][197][206][211][193][212][197] NOT FOUND..."
10040 PRINT"  [208]LEASE INSERT THAT DISK TO TRY AGAIN."
10045 PRINT"               -- [207][210][160]--"
10050 PRINT"   <[208]RESS '[209]' TO RETURN TO [204][207][193][196][211][212][193][210]>"
10060 POKE198,0:WAIT198,1:GETA$
10070 IFA$="Q"THEN60000
10080 GOTO10000
10090 :
59000 :
59010 OPEN15,8,15,"I0"
59020 OPEN8,8,8,"#"
59030 PRINT#15,"UA:8 0 18 0"
59040 PRINT#15,"B-P:8 144"
59050 N$="":FORA=1TO16:GET#8,A$:N$=N$+A$:NEXT
59060 CLOSE8:CLOSE15
59070 RETURN
60000 :
60010 OPEN15,8,15,"R0:STAR=STAR":INPUT#15,ER:CLOSE15
60020 IFER<>63THEN61000
60030 PRINT"[147]"SPC(12)"[199]OING TO [204][207][193][196][211][212][193][210]..."
60040 F$="HELLO CONNECT"
60050 PRINT"LOADF$,8":PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
60060 :
61000 REM  IS LOADSTAR THERE?
61010 GOSUB59000
61020 IFLEFT$(N$,10)="LOADSTAR #"THENRETURN
61030 PRINT"[147]         [204][207][193][196][211][212][193][210] NOT FOUND..."
61040 PRINT"  [208]LEASE INSERT THAT DISK TO TRY AGAIN."
61050 PRINT"   [208]RESS ANY KEY WHEN YOU ARE READY."
61060 POKE198,0:WAIT198,1:POKE198,0:GOTO61000